home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / line / Line_Measure.rx < prev   
Encoding:
Text File  |  1998-12-08  |  227 b   |  13 lines
  1. /* Measure line */
  2.  
  3.     call addlib("rexxmathlib.library", 5, -30, 0)
  4.  
  5.    parse ARG Port x1 y1 x2 y2 b
  6.    ADDRESS value Port
  7.     xb=abs(x2-x1)+1    
  8.     yb=abs(y2-y1)+1
  9.     h=trunc(sqrt(xb**2+yb**2),3)
  10.  
  11.     pp_warn 'Distance*=*'||h||'*pixels'
  12.     
  13.